(custom-face-value-create): Always emphasize tag.
authorGerd Moellmann <gerd@gnu.org>
Thu, 30 Nov 2000 13:01:07 +0000 (13:01 +0000)
committerGerd Moellmann <gerd@gnu.org>
Thu, 30 Nov 2000 13:01:07 +0000 (13:01 +0000)
lisp/cus-edit.el

index 55ef28ce93f56624dd757425d8031d6510510edc..137b406663f97f9b6041085150cd382ecefd4e08 100644 (file)
@@ -2666,9 +2666,9 @@ SPEC must be a full face spec."
          (t
           ;; Create tag.
           (insert tag)
+          (widget-specify-sample widget begin (point))
           (if (eq custom-buffer-style 'face)
               (insert " ")
-            (widget-specify-sample widget begin (point))
             (if (string-match "face\\'" tag)
                 (insert ":")
               (insert " face: ")))